home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / DEF / Define / Rhythm / def-rhythm-apply < prev    next >
Lisp/Scheme  |  1998-10-23  |  1KB  |  35 lines
  1. def-rhythm-apply type <instruments&rhythms&symbols>  
  2.                                          list-of-rhythm-strings
  3.  
  4. Defines the note lengths and symbols for each instrument applying the list-of-rhythm strings returned by vector-to-timesheet-list. Note that there must be the same  number of rhythm strings in the vector than there are instruments to be defined. You can adjust this number with vector-to-strings 5 parameter.
  5.  
  6. (setq rhythm '(1/4 1/8))
  7. (setq symbols '(a b c))
  8.  
  9. (def-rhythm-apply 'fill
  10.    solo   '1/16    (a b (-1 c))
  11.    riff1  '1/8     symbols
  12.    riff2  '1/16    (eval (symbol-trim 8 symbols))
  13.    b&s    '1/16t   (a)
  14.    complex rhythm  (a)
  15.  
  16.    (vector-to-strings 5 16 'normal
  17.       (gen-sin 3 0.5 64)
  18.       (gen-sin 2 0.5 64 30))
  19. )
  20.  
  21. (def-rhythm-apply 'mask
  22.    solo   '1/16    (a b (-1 c))
  23.    riff1  '1/8     symbols
  24.    riff2  '1/16    (eval (symbol-trim 8 symbols))
  25.    b&s    '1/16t   (a)
  26.    complex rhythm  (a)
  27.  
  28.    (vector-to-strings 5 16 'normal
  29.       (gen-sin 3 0.5 64)
  30.       (gen-sin 2 0.5 64 30))
  31. )
  32.  
  33. The instrument can be a single instrument, or instrument group defined with def-orchestra. The properties are inherited to all sub-groups and instruments of the group.
  34.  
  35.